home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Pascal / Source□ / DeHQX-200-Source / Displays.p < prev    next >
Encoding:
Text File  |  1991-08-23  |  903 b   |  46 lines  |  [TEXT/PJMM]
  1. unit Displays;
  2. { DeHQX v2.0.0 © Peter Lewis, Aug 1991 }
  3.  
  4. interface
  5.  
  6.     uses
  7.         FixMath, MyUtilities, HQXLIsts;
  8.  
  9.     var
  10.         buffer_pos: integer;
  11.  
  12.     procedure DisplayUpdate (wp: windowPtr);
  13.     procedure ProgressItem (dlg: windowPtr; item: integer);
  14.  
  15. implementation
  16.  
  17.     procedure ProgressItem (dlg: windowPtr; item: integer);
  18.         var
  19.             it: integer;
  20.             ih: handle;
  21.             box: rect;
  22.             text: str255;
  23.             w, uw: integer;
  24.     begin
  25.         SetPort(dlg); { for when called by my pseudo update }
  26.         GetDItem(dlg, item, it, ih, box);
  27.         FrameRect(box);
  28.         InsetRect(box, 1, 1);
  29.         with box do begin
  30.             w := right - left;
  31.             uw := FracMul(w, FracDiv(size_processed + buffer_pos, size_in_lists));
  32.             right := left + uw;
  33.             FillRect(box, gray);
  34.             left := right;
  35.             right := right + w - uw;
  36.             EraseRect(box);
  37.         end;
  38.     end;
  39.  
  40.     procedure DisplayUpdate (wp: windowPtr);
  41.     begin
  42.         ProgressItem(wp, 1);
  43.         SetItemText(wp, 2, processing_name);
  44.     end;
  45.  
  46. end.